home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #6 / Amiga Plus CD - 1996 - No. 06.iso / pd / grafik / raystorm / install_raystorm < prev    next >
Text File  |  1996-04-26  |  3KB  |  105 lines
  1. ;**************************************************************************
  2. ; Install_RayStorm - RayStorm installation script for Installer
  3. ;
  4. ; Copyright © 1995 Andreas Heumann
  5. ;
  6. ; $Id: Install_RayStorm,v 1.2 1996/24/01
  7. ;
  8. ;     Installer and Installer project icon
  9. ;     (c) Copyright 1991-93 Commodore-Amiga, Inc.  All Rights Reserved.
  10. ;     Reproduced and distributed under license from Commodore.
  11. ;
  12. ;     INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
  13. ;     NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
  14. ;     OR RESPONSIBILITY IS ASSUMED.
  15. ;
  16. ;**************************************************************************
  17. (welcome "Welcome to the " @app-name " installation.\n")
  18.  
  19. ; What we are?
  20. (set app-name (cat @app-name " 1.22"))
  21.  
  22. ; "Needs"
  23. (set need-version 37)  ; version of operating system need by RayStorm
  24.  
  25. ; These directories are always present
  26. (set dir-pat "(docs|modules|arexx)")
  27.  
  28. ; The source directory name
  29. (set source-dir
  30.  (if (= 1 (exists @icon))
  31.   (pathonly (expandpath @icon))
  32.   (expandpath @icon)
  33.  )
  34. )
  35.  
  36. ;**************************************************************************
  37. ; Select destination directory for the installation. We suggest the user
  38. ; to install to the place from where the installer was started. This is
  39. ; since normally this software will be unarchived to its proper location
  40. ; and the files don't have to be copied any more.
  41. ;**************************************************************************
  42. (procedure select-destination-directory
  43.  (transcript "Selecting destination directory for the installation.")
  44.  (while
  45.   (
  46.     (set @default-dest
  47.      (askdir
  48.       (prompt "Select directory where to install " app-name ".\n"
  49.                  "You have to create a directory for " app-name " yourself."
  50.       )
  51.       (help "    Here you can specify location where to install "
  52.               "the " app-name ".\n"
  53.               "    Installation can be made on-place. "
  54.               "This is recommended if you have already unarchived "
  55.               "the " app-name " archive to its final location. "
  56.               "In this case "
  57.               "most of the files are left where they are. "
  58.               "Only necessary files are copied to different "
  59.               "positions.\n"
  60.       )
  61.       (newpath)
  62.       (default source-dir)
  63.      )
  64.     )
  65.     (if (= 2 (exists @default-dest))
  66.      0
  67.      (makedir @default-dest
  68.       (infos)
  69.      )
  70.     )
  71.   )
  72.  )
  73. )
  74.  
  75. ;**************************************************************************
  76. ; Installatation sequence
  77. ;**************************************************************************
  78. (message "Please remember during this installation:\n\n"
  79.      "    Read the instructions provided behind the \"Help\" "
  80.      "buttons, if you are not absolutely sure what you are doing.\n"
  81. )
  82.  
  83. (complete 00)
  84. (transcript "On making " app-name ".")
  85. (select-destination-directory)
  86. (complete 10)
  87. (working "Uncompressing basic files")
  88. (run (cat "lha x " (tackon source-dir "basic.lha ") @default-dest "/ #?"))
  89. (delete "basic.lha")
  90. (complete 50)
  91. (working "Uncompressing executable files")
  92. (run (cat "lha x " (tackon source-dir "exe.lha ") @default-dest "/ #?"))
  93. (delete "exe.lha")
  94. (delete "Install_RayStorm")
  95. (delete "Install_RayStorm.info")
  96. (complete 90)
  97. (message "Installation of "app-name" done.\n"
  98.             "Note: To use "app-name" you have to install the example files too.")
  99. (complete 100)
  100.  
  101. ;;; All done!
  102.  
  103. ; EOF
  104.  
  105.